CLS
OPEN "fimana.in" FOR INPUT AS #1
OPEN "fimana.out" FOR OUTPUT AS #2

sum = 0
FOR i = 1 TO 12
  INPUT #1, t
  sum = sum + t
NEXT i

ans$ = LTRIM$(STR$(sum / 12))

FOR i = 1 TO LEN(ans$)
  IF MID$(ans$, i, 1) = "." THEN
    i = i + 2
    EXIT FOR
  END IF
NEXT i

ans$ = MID$(ans$, 1, i)
           
PRINT #2, "$"; ans$

CLOSE #1, #2
END

